home *** CD-ROM | disk | FTP | other *** search
- 000010 REPORT ZPG340.
- 000020
- 000030 TABLES: MACO.
- 000040
- 000050 SELECT * FROM MACO WHERE MACDB EQ 'AUFK'
- 000060 AND MACID EQ 'N'.
- 000070 WRITE: / MACO-RESKY+00(02),
- 000080 MACO-RESKY+02(20),
- 000090 MACO-RESKY+22(08),
- 000100 MACO-RESKY+28(30).
- 000110 ENDSELECT.
- 000120
- 000130 *EOF
-